10 REM  THE NAME 'MISSION 99'AND THE PROGRAM HEREIN ARE  COPYRIGHT (C)1982                     TITAN PROGRAMS   
100 TI=9
110 RESTORE
150 GOSUB 16000
200 CALL CLEAR
210 U=1
220 CALL SCREEN(9)
230 CALL COLOR(13,2,16)
240 CALL COLOR(9,15,9)
250 CALL COLOR(10,2,9)
300 GOSUB 5000
1100 Z$="0160F2F7F7FF7F40"
1110 Y$="FC4891F9FEF9F140"
1120 X$="FC4890F8FFF8F040"
1140 W$="3C18183C3C3C3C18"
1150 KX$="00004045557F57FF"
1200 CALL CHAR(97,Z$)
1210 CALL CHAR(96,Y$)
1220 CALL CHAR(135,X$)
1230 CALL CHAR(136,W$)
1240 CALL CHAR(148,KX$)
1245 CALL COLOR(15,11,9)
1250 IF TI=9 THEN 14000
2000 CALL SOUND(-4250,-7,20)
2005 FOR Z=3 TO 23
2010 FOR Y=2 TO 31
2015 IF Y>30 THEN 2030
2020 CALL GCHAR(Z,Y+2,O)
2030 IF O<>32 THEN 10000
2040 CALL SOUND(-405,-7,20)
2100 CALL HCHAR(Z,Y,97,1)
2120 CALL HCHAR(Z,Y+1,96,1)
2130 CALL HCHAR(Z,Y-1,32,1)
2200 CALL KEY(0,K,STATUS)
2380 IF H>0 THEN 2490
2400 IF K<>32 THEN 3980
2405 IF I=5 THEN 2490
2410 U=Y
2416 I=5
2490 H=H+1
2500 CALL VCHAR(Z+H,U,136,1)
2510 CALL VCHAR(Z+H-1,U,32,1)
2512 IF Z+H>22 THEN 3010
2515 CALL GCHAR(Z+H+1,U,TB)
2516 IF TB=32 THEN 2600
2517 IF Z+H=22 THEN 2600
2520 CZ=CZ+1
2530 IF CZ<6 THEN 2600
2535 SCR=SCR+50
2537 CZ=0
2540 CALL HCHAR(Z+H+1,U,148)
2550 GOTO 3010
2600 IF Z+H<=22 THEN 3980
3010 CALL VCHAR(Z+H-1,U,32,2)
3015 CZ=0
3020 H=0
3030 I=0
3980 NEXT Y
3981 IF I<>5 THEN 3985
3982 H=H-1
3985 CALL HCHAR(Z,Y-1,32,3)
3990 NEXT Z
3992 CALL HCHAR(23,31,97,1)
3994 CALL HCHAR(23,32,96,1)
3999 IF Z>23 THEN 12000
5000 A$="5555555555555555"
5010 BX$="7F49497F7F49497F"
5020 SA$="030F1F3F7F7FFFFF"
5025 SB$="70F8FCFEFEFFFFFF"
5030 SC$="FFFF7F3F1F1F0300"
5035 SD$="FFFFFEFEFCF8E000"
5040 BY$="7F557F557F557F55"
5050 CALL COLOR(15,11,9)
5052 CALL CHAR(144,SA$)
5055 CALL CHAR(145,SB$)
5060 CALL CHAR(146,SC$)
5065 CALL CHAR(147,SD$)
5067 IF TI=9 THEN 5110
5070 CALL HCHAR(1,28,144,1)
5071 STX=1
5075 CALL HCHAR(1,29,145,1)
5080 CALL HCHAR(2,28,146,1)
5085 CALL HCHAR(2,29,147,1)
5110 B$="7F41417F41417F41"
5180 CALL CHAR(128,A$)
5190 CALL CHAR(129,B$)
5200 CALL CHAR(130,BX$)
5210 CALL CHAR(131,BY$)
5300 C$="08080808081C3E7F"
5310 D$="08081C143E2A7F6B"
5320 J$="FFFFFFFFFFFFFFFF"
5380 CALL CHAR(104,C$)
5390 CALL CHAR(105,D$)
5400 CALL CHAR(140,J$)
5405 IF TI=9 THEN 5995
5495 CALL HCHAR(24,1,140,32)
5500 FOR A=4 TO 28
5540 B=INT(RND*(LE-48))+INT(RND*7)+1+RO
5550 F=INT(RND*4)+128
5600 FOR C=23 TO 23-B STEP-1
5700 CALL HCHAR(C,A,F,1)
5980 NEXT C
5982 E=INT(RND*2)+104
5985 CALL HCHAR(C,A,E,1)
5990 NEXT A
5995 RETURN
10000 CALL HCHAR(Z,Y,97,1)
10110 CALL HCHAR(Z,Y+1,96,1)
10120 CALL HCHAR(Z,Y-1,32,1)
10130 CALL HCHAR(Z+H,U,32,1)
10150 FOR SO=0 TO 30
10160 CALL SOUND(40,-7,SO)
10170 NEXT SO
10200 AA$="183C781D3E3C7880"
10210 AB$="102052DDFF1C0408"
10220 AC$="080C0E0F0F1F3F7F"
10230 AD$="080C1E1F3F2F7F6F"
10300 CALL CHAR(150,AA$)
10310 CALL CHAR(151,AB$)
10320 CALL CHAR(152,AC$)
10330 CALL CHAR(153,AD$)
10500 FOR Q=Z TO 23
10502 CALL GCHAR(Q+1,Y,L)
10504 IF L=32 THEN 10510
10505 CALL HCHAR(Q-1,Y,32,1)
10506 CALL HCHAR(Q+1,Y,152,1)
10508 GOTO 10600
10510 CALL HCHAR(Q,Y,150,1)
10520 CALL HCHAR(Q-1,Y,32,1)
10530 NEXT Q
10600 FOR Q=Z TO 23
10602 CALL GCHAR(Q+1,Y+1,M)
10604 IF M=32 THEN 10610
10605 CALL HCHAR(Q-1,Y+1,32,1)
10606 CALL HCHAR(Q+1,Y+1,153,1)
10607 FOR PT=1 TO 600
10608 NEXT PT
10609 GOTO 100
10610 CALL HCHAR(Q,Y+1,151,1)
10620 CALL HCHAR(Q-1,Y+1,32,1)
10650 NEXT Q
12000 CA$="995A3C3C3C181818"
12210 CB$="C8D0E0E0E0C0A090"
12220 CC$="061E3C7E7970A010"
12230 CD$="FF3F5C8201000000"
12240 CE$="0A060E9E7E3C7860"
12250 CF$="00000080413AFCFF"
12260 CG$="08D0F0787D3E1C02"
12270 CH$="0000007E3C181818"
12280 CI$="18183C3C3C181818"
12300 CALL CHAR(151,CA$)
12310 CALL CHAR(152,CB$)
12320 CALL CHAR(153,CC$)
12330 CALL CHAR(154,CD$)
12340 CALL CHAR(155,CE$)
12350 CALL CHAR(156,CF$)
12360 CALL CHAR(157,CG$)
12370 CALL CHAR(158,CH$)
12380 CALL CHAR(159,CI$)
12500 CALL HCHAR(23,31,97,1)
12510 CALL HCHAR(23,32,96,1)
12520 CALL HCHAR(24,1,140,32)
12530 RESTORE
12600 FOR HB=1 TO 20
12610 READ DA,DB
12620 CALL HCHAR(23,29-DB,DA,1)
12625 IF DA=158 THEN 12710
12630 FOR TD=1 TO 10
12640 NEXT TD
12645 IF DA=159 THEN 12800
12647 IF HB=11 THEN 13000
12650 CALL HCHAR(23,30-DB-XV,32,1)
12700 NEXT HB
12710 FOR TX=1 TO 200
12720 NEXT TX
12730 GOTO 12650
12800 FOR GH=1 TO 1000
12810 NEXT GH
12820 RO=RO+1
12830 GOTO 200
12900 DATA 151,0,152,0,157,1,156,1,155,2,154,3,153,4,152,4,151,4,151,4,152,4
12910 DATA 153,4,154,3,155,2,156,1,157,0,152,0,151,0,158,0,159,0
13000 XV=2
13010 GOTO 12650
14000 TT$="00000000FFFFFFFF"
14010 TW$="FFFFFFFF00000000"
14020 TX$="80C0E0F000000000"
14030 TY$="1F0F070301000000"
14040 CALL COLOR(13,2,9)
14050 CALL CHAR(131,TT$)
14060 CALL CHAR(132,TW$)
14070 CALL CHAR(133,TX$)
14080 CALL CHAR(134,TY$)
14300 PRINT "                                                     "
14310 PRINT "                                                     "
14311 PRINT "              PROGRAMS"
14312 PRINT
14313 PRINT
14320 PRINT "         P R E S E N T"
14322 PRINT
14323 PRINT
14324 PRINT
14325 PRINT "          MISSION  99"
14330 PRINT
14331 PRINT
14332 PRINT
14333 PRINT "SELECT LEVEL 0-9, 0-EASIEST"
14334 PRINT
14335 PRINT
14336 IF STX<>1 THEN 14400
14337 IF SCR<HI THEN 14340
14338 HI=SCR
14340 PRINT "SCORE";SCR;"HI";HI;"LEVEL";KEY-48
14350 SCR=0
14400 GOSUB 19000
14998 TI=0
14999 GOTO 200
16000 FOR HJ=1 TO 20
16010 READ GX,GY
16020 NEXT HJ
16100 DIM XJ(35),R(35)
16110 FOR CO=0 TO 31
16120 READ XJ(CO),R(CO)
16130 NEXT CO
16200 RETURN
16500 DATA 392,100,523,50,392,50,392,50,349,25,330,25,349,50,392,50
16510 DATA 330,100,440,50,330,50,330,50,294,25,262,25,294,50
16520 DATA 330,50,262,75,294,25,330,50,440,50,392,50,330,50
16530 DATA 392,100,294,50,392,50,440,25,494,25,523,50,587,50,440,50,392,50,349,50
19000 FOR CO=0 TO 31
19010 CALL SOUND(R(CO)*9,XJ(CO),9)
19020 CALL KEY(3,KEY,ST)
19022 IF KEY<48 THEN 19030
19023 IF KEY>57 THEN 19030
19025 LE=KEY
19027 RETURN
19030 NEXT CO
19040 GOTO 19000
